home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
nshadow
/
states.bas
< prev
next >
Wrap
BASIC Source File
|
1994-06-23
|
2KB
|
71 lines
10 PRINT "THIS IS A DRILL ON CAPITALS AND STATES."
20 PRINT
30 PRINT "AFTER THE NAME OF THE STATE APPEARS,"
40 PRINT "TYPE THE CAPITAL OF THAT STATE."
50 FOR I = 1 TO 50
60 READ Q$, C$
69 PRINT
70 PRINT "WHAT IS THE CAPITAL OF "; Q$;
80 INPUT A$
90 IF A$ = C$ THEN 119
99 PRINT
100 PRINT "NO, YOUR ANSWER IS WRONG. TRY AGAIN."
110 GOTO 70
119 PRINT
120 PRINT "CORRECT. TRY ANOTHER."
121 PRINT
130 PRINT
140 NEXT I
150 PRINT "THAT IS ALL FOR NOW."
160 DATA WASHINGTON, OLYMPIA
170 DATA OREGON, SALEM
180 DATA IDAHO, BOISE
190 DATA CALIFORNIA, SACRAMENTO
200 DATA NEVADA, CARSON CITY
201 DATA MONTANA, HELENA
202 DATA WYOMING, CHEYENNE
203 DATA UTAH, SALT LAKE CITY
204 DATA ARIZONA, PHOENIX
205 DATA NEW MEXICO, SANTA FE
206 DATA COLORADO, DENVER
207 DATA NORTH DAKOTA, BISMARK
208 DATA SOUTH DAKOTA, PIERRE
209 DATA NEBRASKA, LINCOLN
210 DATA KANSAS, TOPEKA
211 DATA OKLAHOMA, OKLAHOMA CITY
212 DATA TEXAS, AUSTIN
213 DATA MINNESOTA, SAINT PAUL
214 DATA IOWA, DES MOINES
215 DATA MISSOURI, JEFFERSON CITY
216 DATA ARKANSAS, LITTLE ROCK
217 DATA LOUISANA, BATON ROUGE
218 DATA WISCONSIN, MADISON
219 DATA ILLINOIS, SPRINGFIELD
220 DATA KENTUCKY, FRANKFORT
221 DATA TENNESSEE, NASHVILLE
222 DATA MISSISSIPPI, JACKSON
223 DATA MICHIGAN, LANSING
224 DATA INDIANA, INDIANAPOLIS
225 DATA OHIO, COLUMBUS
226 DATA ALABAMA, MONTGOMERY
227 DATA NEW YORK, ALBANY
228 DATA PENNSYLVANIA, HARRISBURG
229 DATA MARYLAND, ANNAPOLIS
230 DATA WEST VIRGINIA, CHARLESTON
231 DATA VIRGINIA, RICHMOND
232 DATA NORTH CAROLINA, RALEIGH
233 DATA SOUTH CAROLINA, COLUMBIA
234 DATA GEORGIA, ATLANTA
235 DATA FLORIDA, TALAHASSEE
236 DATA NEW JERSEY, TRENTON
237 DATA CONNECTICUT, HARTFORD
238 DATA RHODE ISLAND, PROVIDENCE
239 DATA MASSACHUSETTS, BOSTON
240 DATA VERMONT, MONTPELIER
241 DATA NEW HAMPSHIRE, CONCORD
242 DATA MAINE, AUGUSTA
243 DATA DELAWARE, DOVER
244 DATA ALASKA, JUNEAU
245 DATA HAWAII, HONOLULU
250 END